home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Present…nuary (Partner) - Disc 1 / The Apple Reference and Presentations Library (Disc 1)(January 1994).iso / Frame Technology / US English / FrameMaker 4-PPC / System Extras / PS Printer 8.1.1 / PSPrinter / PSPrinter.rsrc / PS_-8184 < prev    next >
Encoding:
Text File  |  1994-04-13  |  2.0 KB  |  93 lines
  1. %%BeginFile: adobe_psp_nup
  2. %%Copyright: Copyright 1990-1993 Adobe Systems Incorporated. All Rights Reserved.
  3. /nx Z
  4. /ny Z
  5. /pagew Z
  6. /pageh Z
  7. /angle Z
  8. /paperw Z
  9. /paperh Z
  10. /nups Z
  11. /pgx Z
  12. /pgy Z
  13. /imT matrix def
  14. /papermarg 1 def
  15. /pagemarg 10 def
  16. /nupv 5 array def
  17. /framenup true def
  18. /definenup{
  19. nupv astore pop
  20. }bd
  21. /startnup{
  22. imT currentmatrix pop
  23. nupv aload pop
  24. /ny xs
  25. /nx xs
  26. /pageh xs
  27. /pagew xs
  28. rotate
  29. clippath/nups pathbbox
  30. 3 -1 roll sub papermarg sub ny div pagemarg sub pageh div exch
  31. 3 -1 roll sub papermarg sub nx div pagemarg sub pagew div
  32. 2 copy gt{exch}if pop store
  33. nups dup scale
  34. /paperw pagew pagemarg nups div add store
  35. /paperh pageh pagemarg nups div add store
  36. pathbbox mT aload pop
  37. pagemarg nups div dup
  38. 8 index 11 index sub paperh ny mul sub add 2 div exch
  39. 9 index 12 index sub paperw nx mul sub add 2 div
  40. 8 -2 roll add 0 gt{9}{neg 7}ifelse index add 4 -1 roll sub exch
  41. 5 -2 roll add 0 gt{5}{neg 3}ifelse index add 3 -1 roll sub :T pop pop pop pop
  42. /paperw paperw paperh mT idtransform abs/paperh xs abs store
  43. /pagew pagew pageh mT idtransform abs/pageh xs abs store
  44. mT 0 get abs mT 1 get abs lt{/nx ny/ny nx store store}if
  45. .48 nups div lw
  46. /pgx 0 store/pgy 0 store
  47. np startpage
  48. }bd
  49. /startpage{
  50. gS
  51. 0 0 mT transform pagew pageh mT dtransform rC
  52. }bd
  53. /realshowpage/showpage ld
  54. /nupshowpage{
  55. gR
  56. mT concat
  57. framenup{pagemarg 2 div nups div dup mT idtransform abs neg exch abs neg exch paperw paperh rS}if
  58. /pgx pgx 1 add dup nx eq{
  59. pop 0 store
  60. paperw 1 nx sub mul
  61. /pgy pgy 1 add dup ny eq{
  62. gS realshowpage gR
  63. pop 0 store
  64. paperh 1 ny sub mul
  65. }{
  66. store paperh
  67. }ifelse
  68. }{
  69. store paperw 0
  70. }ifelse :T
  71. mT $m invertmatrix concat startpage
  72. }bd
  73. /showpage/nupshowpage ld
  74. /finalpage{
  75. gR
  76. pgx 0 gt pgx nx lt and pgy 0 gt pgy ny lt and or{realshowpage}if
  77. /showpage/realshowpage ld
  78. }bd
  79. /nonup{
  80. pgx 0 gt pgx nx lt and pgy 0 gt pgy ny lt and or{realshowpage}if
  81. gR/pgx 0 store/pgy 0 store
  82. 1 setcopies
  83. /showpage{
  84. realshowpage
  85. md/copies known{copies setcopies}if
  86. md/startnup known{startnup}if
  87. /showpage/nupshowpage ld
  88. }def
  89. /pm save store
  90. imT setmatrix pT concat
  91. }bd
  92. %%EndFile
  93.